リスト：LASER Ver2.1

プチコン　プログラムリスト

タイトル：LASER Ver2.1
レーザーを撃つことを目的としたものです。

Yボタンでレーザー撃てます。
Bボタンでオプション追加。
Aボタンでオプションが減ります。
Xボタンで終了します。
もちろん十字キー（スライドパッド）で移動できます。

オプションの移動履歴保存処理を改善しています。
（166,167行辺り　無駄なFORループをなくしました）
これだけでも、結構動作が軽くなりました。
BGのテストを兼ねて超適当な星空を実装しました。
また、ショットボタンから手を離してもレーザーは止まりません。（写真が撮りにくいです）
ちなみに、60行の「5」を違う数字に変更するとオプションの色が変わります。
235行の最後の「6」を変更するとレーザーの色が変わります。
まあ、プチコンを買うような人にはこんな説明は必要ないでしょうが．．．
http://www43.tok2.com/home/ogut/index.html
リスト作成に上記サイトの「PTC2HTML」を利用させていただいています。
001. ′Ｖｅｒ　２．１
002. ′ＢＧニホシヲヒョウシ゛
003. ′Ｖｅｒ　２．０　７コショリオチナシ
004. ′キ゛シ゛ヒ゛ットシフト
005. ＡＣＬＳ
006. ＣＬＥＡＲ
007. ＶＩＳＩＢＬＥ　１，１，１，１，１，１
008. ＣＬＳ：ＣＯＬＯＲ　０
009. ′ＧＰＡＧＥ　０，０，０
010. 
011. ＯＰＭＡＸ＝２０　　　　　′オフ゜ションノカス゛
012. ＭＩＤ０＝０　　　　　　　′シ゛キノスフ゜ライトＩＤ０
013. ＭＩＤ１＝ＯＰＭＡＸ＋１　′シ゛キノスフ゜ライトＩＤ１
014. 
015. ′ＬＡＳＥＲステ－タス　シ゛キ＋オフ゜ション
016. ＤＩＭ　ＬＳＴ（ＯＰＭＡＸ＋１，４）
017. ＦＯＲ　Ｉ＝０　ＴＯ　ＯＰＭＡＸ
018. 　　ＬＳＴ（Ｉ，０）＝０　　′フラク゛
019. 　　ＬＳＴ（Ｉ，１）＝０　　′ナカ゛サ
020. 　　ＬＳＴ（Ｉ，２）＝０　　′カイシＸ
021. 　　ＬＳＴ（Ｉ，３）＝０　　′カイシＹ
022. ＮＥＸＴ　Ｉ
023. 
024. ′ク゛ラフィックショキカ
025. ＧＰＡＧＥ　０，０，０
026. ＧＰＲＩＯ　２
027. 
028. ′スフ゜ライトシ゛ュンヒ゛
029. ＤＩＭ　ＳＰＫ（１００），ＳＰＰ（１００），ＳＰＨ（１００），ＳＰＶ（１００），ＳＰＩ（１００）
030. ＤＩＭ　ＳＰＦ（１００），ＳＰＸ（１００），ＳＰＹ（１００）
031. ＦＯＲ　Ｉ＝０　ＴＯ　９９
032. 　　ＳＰＦ（Ｉ）＝０　　′０：スキッフ゜　１：シンキ　２：イト゛ウ　３：ヘンコウ　４：シュウキョ
033. ＮＥＸＴ　Ｉ
034. ′シ゛キセッテイ
035. ＳＰＫ（ＭＩＤ０）＝２５６
036. ＳＰＰ（ＭＩＤ０）＝２
037. ＳＰＨ（ＭＩＤ０）＝０
038. ＳＰＶ（ＭＩＤ０）＝０
039. ＳＰＩ（ＭＩＤ０）＝０
040. ＳＰＦ（ＭＩＤ０）＝１
041. ＳＰＸ（ＭＩＤ０）＝１００
042. ＳＰＹ（ＭＩＤ０）＝１００
043. ＳＰＫ（ＭＩＤ１）＝２５７
044. ＳＰＰ（ＭＩＤ１）＝２
045. ＳＰＨ（ＭＩＤ１）＝０
046. ＳＰＶ（ＭＩＤ１）＝０
047. ＳＰＩ（ＭＩＤ１）＝０
048. ＳＰＦ（ＭＩＤ１）＝１
049. ＳＰＸ（ＭＩＤ１）＝１１６
050. ＳＰＹ（ＭＩＤ１）＝１００
051. 
052. ＳＰＣＮＴ＝ＭＩＤ１　　′スフ゜ライトサイタ゛イスウ
053. 
054. ′オフ゜ション
055. ＯＰＷ＝８　　　　′オフ゜ションノウエイト
056. ＤＩＭ　ＯＰ（ＯＰＷ＊ＯＰＭＡＸ，２）　　′オフ゜ショヨウエイトテ－フ゛ル　Ｘ，Ｙ
057. ＯＰＣ＝０　　　　′ヒョウシ゛チュウノオフ゜ションスウ
058. ＦＯＲ　Ｉ＝１　ＴＯ　ＯＰＭＡＸ
059. 　ＳＰＫ（Ｉ）＝２００
060. 　ＳＰＰ（Ｉ）＝５
061. 　ＳＰＨ（Ｉ）＝０
062. 　ＳＰＶ（Ｉ）＝０
063. 　ＳＰＩ（Ｉ）＝０
064. 　ＳＰＦ（Ｉ）＝０
065. 　ＳＰＸ（Ｉ）＝０
066. 　ＳＰＹ（Ｉ）＝０
067. ＮＥＸＴ　Ｉ
068. 
069. ′スフ゜ライトサ゛ヒョウ　０：Ｘ　１：Ｙ
070. ＤＩＭ　ＯＰ＄（２）
071. 
072. ＧＯＳＵＢ　＠ＢＧＳＥＴ
073. ＧＯＳＵＢ　＠ＢＧＳＣＲ
074. 
075. ＧＯＳＵＢ　＠ＳＰＷＲＩＴＥ
076. 
077. ＠ＭＬＯＯＰ
078. ′ニュウリョク
079. ＸＸ＝０：ＹＹ＝０
080. ＢＴＮ＝ＢＵＴＴＯＮ（０）
081. 
082. ＩＦ　ＢＴＮ　ＡＮＤ　　６４　ＧＯＴＯ　＠ＥＸＩＴ　　′Ｘホ゛タン
083. ＩＦ　ＢＴＮ　ＡＮＤ　１２８　ＴＨＥＮ　ＳＨＯＴ＝１　′Ｙホ゛タン
084. ＩＦ　ＢＴＮ　ＡＮＤ　　　１　ＴＨＥＮ　ＹＹ＝－２　　′ウエ
085. ＩＦ　ＢＴＮ　ＡＮＤ　　　２　ＴＨＥＮ　ＹＹ＝２　　　′シタ
086. ＩＦ　ＢＴＮ　ＡＮＤ　　　４　ＴＨＥＮ　ＸＸ＝－２　　′ヒタ゛リ
087. ＩＦ　ＢＴＮ　ＡＮＤ　　　８　ＴＨＥＮ　ＸＸ＝２　　　′ミキ゛
088. 
089. ′レンソ゛クシテニュウリョクサレナイヨウニフラク゛テ゛セイキ゛ョスル
090. ＩＦ　ＢＴＮ　ＡＮＤ　１６　ＴＨＥＮ　ＡＢ＝１　ＥＬＳＥ　ＡＢ＝０　′Ａホ゛タン
091. ＩＦ　ＡＢ＝＝０　ＴＨＥＮ　ＡＦＬＧ＝１
092. ＩＦ　ＢＴＮ　ＡＮＤ　３２　ＴＨＥＮ　ＢＢ＝１　ＥＬＳＥ　ＢＢ＝０　′Ｂホ゛タン
093. ＩＦ　ＢＢ＝＝０　ＴＨＥＮ　ＢＦＬＧ＝１
094. 
095. ＩＦ　ＸＸ！＝０　ＯＲ　ＹＹ！＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＭＹＭＯＶＥ
096. 
097. ＩＦ　ＳＨＯＴ＝＝０　ＧＯＴＯ　＠ＳＨＯＴＳＫＩＰ
098. 　ＦＯＲ　Ｉ＝０　ＴＯ　ＯＰＣ
099. 　　ＬＳＴ（Ｉ，０）＝１
100. 　ＮＥＸＴ　Ｉ
101. 　ＳＨＯＴ＝０
102. ＠ＳＨＯＴＳＫＩＰ
103. 
104. ′オフ゜ション　Ａホ゛タン＝ヘラス　Ｂホ゛タン＝フヤス
105. ＩＦ　ＡＦＬＧ　ＡＮＤ　ＡＢ　ＴＨＥＮ　ＯＰＡＤＤ＝－１
106. ＩＦ　ＢＦＬＧ　ＡＮＤ　ＢＢ　ＴＨＥＮ　ＯＰＡＤＤ＝１
107. ＩＦ　ＯＰＡＤＤ！＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＯＰＴＩＯＮ
108. 
109. ＷＡＩＴ　１
110. ＧＯＳＵＢ　＠ＳＰＷＲＩＴＥ
111. ＧＯＳＵＢ　＠ＬＡＳＥＲ
112. ＧＯＳＵＢ　＠ＢＧＳＣＲ
113. 
114. ＧＯＴＯ　＠ＭＬＯＯＰ
115. 
116. 
117. ＠ＯＰＴＩＯＮ
118. 　ＩＦ　ＯＰＡＤＤ＝＝－１　ＧＯＴＯ　＠ＯＰＴＭＩ
119. 　　′オフ゜ションツイカ
120. 　　ＢＦＬＧ＝０
121. 　　ＩＦ　ＯＰＣ＝＝ＯＰＭＡＸ　ＧＯＴＯ　＠ＯＰＥＮＤ
122. 　　　ＯＰＣ＝ＯＰＣ＋１
123. 　　　ＯＰＸ＝ＳＰＸ（ＯＰＣ－１）
124. 　　　ＩＦ　ＯＰＣ＝＝１　ＴＨＥＮ　ＯＰＸ＝ＯＰＸ＋４
125. 　　　ＯＰＹ＝ＳＰＹ（ＯＰＣ－１）
126. 　　　′ツイカシタ　オフ゜ションノ　イチ
127. 　　　ＯＰ＄（０）＝ＯＰ＄（０）＋ＣＨＲ＄（ＯＰＸ）＊ＯＰＷ
128. 　　　ＯＰ＄（１）＝ＯＰ＄（１）＋ＣＨＲ＄（ＯＰＹ）＊ＯＰＷ
129. 　　　′スフ゜ライト
130. 　　　ＳＰＸ（ＯＰＣ）＝ＯＰＸ
131. 　　　ＳＰＹ（ＯＰＣ）＝ＯＰＹ
132. 　　　ＳＰＦ（ＯＰＣ）＝１
133. 　ＧＯＴＯ　＠ＯＰＥＮＤ
134. 　＠ＯＰＴＭＩ
135. 　　ＡＦＬＧ＝０
136. 　　ＩＦ　ＯＰＣ＝＝０　ＧＯＴＯ　＠ＯＰＥＮＤ
137. 　　　ＳＰＦ（ＯＰＣ）＝４
138. 　　　ＯＰＣ＝ＯＰＣ－１
139. 　＠ＯＰＥＮＤ
140. 　ＯＰＡＤＤ＝０
141. ＲＥＴＵＲＮ
142. 
143. ＠ＥＸＩＴ
144. ＡＣＬＳ
145. ＰＲＩＮＴ”シュウリョウ
146. ＥＮＤ
147. 
148. ＠ＭＹＭＯＶＥ
149. ′シ゛キノイト゛ウ
150. ＳＰＸ（ＭＩＤ０）＝ＳＰＸ（ＭＩＤ０）＋ＸＸ
151. ＩＦ　ＳＰＸ（ＭＩＤ０）＜０　ＴＨＥＮ　ＳＰＸ（ＭＩＤ０）＝０
152. ＩＦ　ＳＰＸ（ＭＩＤ０）＞２２３　ＴＨＥＮ　ＳＰＸ（ＭＩＤ０）＝２２３
153. ＳＰＹ（ＭＩＤ０）＝ＳＰＹ（ＭＩＤ０）＋ＹＹ
154. ＩＦ　ＳＰＹ（ＭＩＤ０）＜０　ＴＨＥＮ　ＳＰＹ（ＭＩＤ０）＝０
155. ＩＦ　ＳＰＹ（ＭＩＤ０）＞１７５　ＴＨＥＮ　ＳＰＹ（ＭＩＤ０）＝１７５
156. ＳＰＦ（ＭＩＤ０）＝２
157. ＳＰＸ（ＭＩＤ１）＝ＳＰＸ（ＭＩＤ０）＋１６
158. ＳＰＹ（ＭＩＤ１）＝ＳＰＹ（ＭＩＤ０）
159. ＳＰＦ（ＭＩＤ１）＝２
160. ′オフ゜ションイト゛ウ
161. ＩＦ　ＯＰＣ＝＝０　ＧＯＴＯ　＠ＯＰＭＶＳＫＩＰ
162. 　′オフ゜ションウエイトテ－フ゛ルヲ１ツスライト゛
163. 　ＯＰＷＯＲＫ＝ＯＰＷ＊ＯＰＣ－１
164. 　′サイコ゛１モシ゛キリトル
165. 　′セントウニ　シ゛キノイチヲイレル
166. 　ＯＰ＄（０）＝ＣＨＲ＄（ＳＰＸ（ＭＩＤ０）＋４）＋ＬＥＦＴ＄（ＯＰ＄（０），ＯＰＷＯＲＫ）
167. 　ＯＰ＄（１）＝ＣＨＲ＄（ＳＰＹ（ＭＩＤ０））＋ＬＥＦＴ＄（ＯＰ＄（１），ＯＰＷＯＲＫ）
168. 
169. 　′オフ゜ツョンスフ゜ライトニハンエイ
170. 　ＦＯＲ　Ｉ＝１　ＴＯ　ＯＰＣ
171. 　　ＩＦ　ＳＰＦ（Ｉ）！＝０　ＧＯＴＯ　＠ＯＰＨＳＫＩＰ
172. 　　　ＳＰＸ（Ｉ）＝ＡＳＣ（ＭＩＤ＄（ＯＰ＄（０），Ｉ＊ＯＰＷ－１，１））
173. 　　　ＳＰＹ（Ｉ）＝ＡＳＣ（ＭＩＤ＄（ＯＰ＄（１），Ｉ＊ＯＰＷ－１，１））
174. 　　　ＳＰＦ（Ｉ）＝２
175. 　　＠ＯＰＨＳＫＩＰ
176. 　ＮＥＸＴ　Ｉ
177. ＠ＯＰＭＶＳＫＩＰ
178. ＲＥＴＵＲＮ
179. 
180. ′－－－スフ゜ライトカキカエ
181. ＠ＳＰＷＲＩＴＥ
182. ＦＯＲ　Ｊ＝０　ＴＯ　ＳＰＣＮＴ
183. 　ＳＮ＝Ｊ
184. 　ＯＮ　ＳＰＦ（Ｊ）　ＧＯＳＵＢ　＠ＳＫＩＰ，＠ＳＰＮＥＷ，＠ＳＰＭＯＶＥ，＠ＳＰＣＨＡＮＧ，＠ＳＰＤＥＬ
185. ＮＥＸＴ　Ｊ
186. ＲＥＴＵＲＮ
187. 
188. ＠ＳＫＩＰ　　′ナニモシナイ
189. ＲＥＴＵＲＮ
190. 
191. ＠ＳＰＮＥＷ
192. ＳＰＳＥＴ　ＳＮ，ＳＰＫ（ＳＮ），ＳＰＰ（ＳＮ），ＳＰＨ（ＳＮ），ＳＰＶ（ＳＮ），ＳＰＩ（ＳＮ）
193. ＳＰＦ（ＳＮ）＝０
194. ＧＯＳＵＢ　＠ＳＰＭＯＶＥ
195. ＲＥＴＵＲＮ
196. 
197. ＠ＳＰＭＯＶＥ
198. ＳＰＯＦＳ　ＳＮ，ＳＰＸ（ＳＮ），ＳＰＹ（ＳＮ）
199. ＳＰＦ（ＳＮ）＝０
200. ＲＥＴＵＲＮ
201. 
202. ＠ＳＰＣＨＡＮＧ　　′ミサクセイ
203. ＳＰＦ（ＳＮ）＝０
204. ＲＥＴＵＲＮ
205. 
206. ＠ＳＰＤＥＬ
207. ＳＰＣＬＲ　ＳＮ
208. ＳＰＦ（ＳＮ）＝０
209. ＲＥＴＵＲＮ
210. 
211. ＠ＬＡＳＥＲ
212. ＦＯＲ　Ｋ＝０　ＴＯ　ＯＰＣ
213. 　ＩＦ　ＬＳＴ（Ｋ，０）＝＝０　ＧＯＴＯ　＠ＬＡＮＥＸＴ
214. 　　′フルイレ－サ゛－ヲケス
215. 　　′ナカ゛サ０ナラフルイレ－サ゛－ハナイ
216. 　　ＩＦ　ＬＳＴ（Ｋ，１）＝＝０　ＧＯＴＯ　＠ＬＡＳＫ０１
217. 　　　ＬＥＮＤ＝ＬＳＴ（Ｋ，２）＋ＬＳＴ（Ｋ，１）
218. 　　　ＩＦ　ＬＥＮＤ＞２５５　ＴＨＥＮ　ＬＥＮＤ＝２５５
219. 　　　ＧＬＩＮＥ　ＬＳＴ（Ｋ，２），ＬＳＴ（Ｋ，３），ＬＥＮＤ，ＬＳＴ（Ｋ，３），０
220. 　　＠ＬＡＳＫ０１
221. 　　′アタラシイレ－サ゛－
222. 　　′ナカ゛サカ゛２２０ヲコケタフ゛ンハ　スキマニナル
223. 　　ＬＳＴ（Ｋ，１）＝ＬＳＴ（Ｋ，１）＋１５
224. 　　ＬＳＴ（Ｋ，２）＝ＳＰＸ（Ｋ）＋２８　　′（３２－４）
225. 　　ＩＦ　Ｋ！＝０　ＴＨＥＮ　ＬＳＴ（Ｋ，２）＝ＬＳＴ（Ｋ，２）－４
226. 　　ＬＳＴ（Ｋ，３）＝ＳＰＹ（Ｋ）＋８
227. 　　ＩＦ　ＬＳＴ（Ｋ，１）＞２２０　ＴＨＥＮ　ＬＳＴ（Ｋ，２）＝ＬＳＴ（Ｋ，２）＋（ＬＳＴ（Ｋ，１）－２２０）
228. 
229. 　　ＩＦ　ＬＳＴ（Ｋ，２）＞２５５　ＴＨＥＮ　ＬＳＴ（Ｋ，０）＝０　　′カ゛メンカ゛イニテ゛タ
230. 　　ＩＦ　ＬＳＴ（Ｋ，０）＝＝０　ＴＨＥＮ　ＬＳＴ（Ｋ，１）＝０
231. 　　ＩＦ　ＬＳＴ（Ｋ，０）＝＝０　ＧＯＴＯ　＠ＬＡＮＥＸＴ
232. 
233. 　　ＬＥＮＤ＝ＬＳＴ（Ｋ，２）＋ＬＳＴ（Ｋ，１）
234. 　　ＩＦ　ＬＥＮＤ＞２５５　ＴＨＥＮ　ＬＥＮＤ＝２５５
235. 　　ＧＬＩＮＥ　ＬＳＴ（Ｋ，２），ＬＳＴ（Ｋ，３），ＬＥＮＤ，ＬＳＴ（Ｋ，３），６
236. 　＠ＬＡＮＥＸＴ
237. ＮＥＸＴ　Ｋ
238. ＲＥＴＵＲＮ
239. 
240. 
241. ′－－ＢＧノショリ－－
242. ＠ＢＧＳＥＴ　′ＢＧニハイケイヲヒ゛ョウカ゛
243. ＢＧＰＡＧＥ　０
244. ＦＯＲ　Ｉ＝０　ＴＯ　６３
245. 　ＦＯＲ　Ｊ＝０　ＴＯ　２３
246. 　　ＢＧＰＵＴ　１，Ｉ，Ｊ，９２８，０，０，０　′マックラ
247. 　　′メント゛ウナノテ゛ランタ゛ムテ゛ホシヲタ゛ス
248. 　　ＲＮ１＝ＲＮＤ（１６）
249. 　　ＲＮ２＝ＲＮＤ（２）
250. 　　ＩＦ　ＲＮ２＝＝０　ＴＨＥＮ　ＨＯＳＨＩ＝８５９　ＥＬＳＥ　ＨＯＳＨＩ＝８９１
251. 　　ＩＦ　ＲＮ１＝＝０　ＴＨＥＮ　ＢＧＰＵＴ　１，Ｉ，Ｊ，ＨＯＳＨＩ，０，０，０
252. 　ＮＥＸＴ　Ｊ
253. ＮＥＸＴ　Ｉ
254. ＲＥＴＵＲＮ
255. 
256. ＠ＢＧＳＣＲ
257. ＩＦ　ＢＧＣＨＫ（１）！＝０　ＧＯＴＯ　＠ＢＧＳＳＫ　　′ホカンシ゛ョウタイナラ　スキッフ゜
258. 　　ＢＧＯＦＳ　１，０，０
259. 　　ＢＧＯＦＳ　１，５１１，０，１０２４
260. ＠ＢＧＳＳＫ
261. ＲＥＴＵＲＮ
262. 
263.